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For sometime now social and behavioral science researchers have 
used SPSS <Nie, 1975) Implemented on mainframe computers for their 
numerical analysis jobs. For most of these researchers the power of a 
mainframe far exceeds their needs , nevertheless the turnaround time on 
their "small" jobs Is still significant due to the heavy demand on 
computer center facilities. With the advent of the micro-computer 
many of these researchers, particularly those In education have found 
a machine that Is both more convenient and efficient for their numer- 
ical analysis needs* Almost Immediately statistical packages designed 
for the micro-computer appeared on the market* Perhaps the best of 
these Is 'STATPAC by Walonlc Associates (1986). One difficulty with 
"STATPAC and several other micro-computer statistical packages Is 
that they do not do test reliability calculations. Of those that do 
*>st offer no choice of reliability type, only the Kuder-R ichardson 20 
formula Is used* 

There are In fact many ways of estimating reliability but the 
four most common are the test-re test method, the parallel-test method, 
split-half methods, and the Kuder-R Ichardson method* A discussion of 
these methods can be found In Magnusson (1967)* The purpose of this 
paper Is to present a BASIC program that does three reliability 
calculations: two split-half methods and the Kuder-R Ichardson method* 
The program reads sequential access data files that have been set up 
by statistical packages such as "STATPAC* The program Is written In 
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MS-DOS BASIC Intended for use on IBM- type micro-computers. The 
program has not been copyrighted and anyone who wishes to use it is 
free to do so. 



IS2-2cLliztlaLi-lletti2ds 

Th? split-half methods of estimating reliability are actually 
forms of the parallel-test method. A single test is split in half to 
form two parallel tests that theoretically measure the same true 
scores. It is assumed that the two halves have roughly equivalent 
means and standard deviations. When splitting a test two factors must 
be considered, item difficulty and item content. It is assumed in 
splitting a test that the halves are parallel with regard to these 
factors. In the computer program that follows a test is split by odd 
and even items. This Insures approximately parallel content but not 
difficulty. The program assumes that the test is homogeneous with 
respect to difficulty. If that is not the case then the reliability 
may be underestimated. In this situation the ustr may wish to reorder 
the test items according to difficulty so that the odd-even splitting 
of items results in more truly parallel tests. This will result in a 
higher reliability estimate. Lastly, the program also assumes that 
the test is a power test, i.e. there is no significant time 
limitation. 

In the "common split-half" method a correlation coefficient 
between the two halves is calculated by the formula: 

£x X - t JX ^Ll / Rl 
r - -Q-g , ^ ^^J^ 



oe / i 

2 2 2 

(IX - <£X > / RHtX - (XX ) / RJ 
o o e e 
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where Xo Is the sua of the odd items, Xe is the sue of the even 
Items, and r Is the number of lteas in one split-half test (Glass & 
Stanley, 1970, p. 114). The reliability estimation is then calculated 
with the Spearaan-Brown foraula (Magnusson, 1967, p. 73): 

nr 

r - oe 

1 + <n - T)r~~ 
oe 

where roels the correlation coefficient between the two split-halves 
and n is the number of times the test is Increased in length. In 
the common split-half method the actual test is twice the size of the 
split-half, therefore n is always 2. 

The second split-half method is the Rulon-Guttman method. This 

method does not necessarily assume that the split-half tests have 

equal variances. The reliability estimate is based upon the error 

variance according to the following foraula derived by P. J. Rulon: 

2 2 
r - 1 - S / S 
d T 

where S<j is the variance of the differences between odd and even 
scores (Hagnusson, 1967, p. 111). In this program the actual equation 
used is a refinement of the Rulon equation derived by L. Guttman: 

2 

r ■ 4r S S / S 
oe o e T 
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where So Is the standard deviation of the odd split-half, Se is 
the standard deviation of the even split-half, roe Is the correlation 
between the two halves, and % Is the variance of the whole test 
(Magnusson, 1967, p. Ill), when the variances of the two split -halves 
are equal then the reliability estimate will be the sane as the common 
split-half estimate. When they are not equal then the common split- 
half method will systematically give a higher estimate. In this case 
the Rulon-rGuttaan method Is preferable. 

IbS_£u3£rr£i£bardson_Met]}od 

The Kuder-Rlchardson method Is based on the Inter- Item homogen- 
eity of a test. It Is generally used when a test Is designed to 
measure only one trait. Therefore It Is a "random parallel test- 
estimate of reliability as opposed to -parallel test" estimates 
derived from the split-half methods. In this program the formula used 
Is: 

2 2 
3 - S 

r ■ Q I 1 

n - 1 2 

S 

T 

where n Is the number of test Items, s£ Is the test variance, and 
S stands for Item variance (Magnusson, 1967, p. 116). This formula 
Is commonly called the KR-20 estimate of reliability and should not be 
confused with the KR-21 formula. The KR-21 formula Is a more simple 
calculation but requires the assumption of item variance homogeneity. 
When the calculations are done by computer the more simple calculation 
If of no advantage; and since the KR-20 formula Is less restrictive it 
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Is used in tais program. In this method as the homogeneity of items 
Increases, so does the reliability estimate. 



The computer program actually consists of three programs. The 
first is a menu program that shows the user what reliability method 
options are available and asks for the user's choice. The second 
program is for the Kuder-Rlchardson method and the third program is 
for the two split-half methods, A flow chart showing program struc- 
ture precedes the code listing for each program. The code listing 
itself contains explanatory comments. As stated previously the code 
is MS-DOS BASIC. For use on an Apple He the file commands, the 
LPRINT, PRINT USING, CLS and LOCATE statements, and the variable name 
lengths would need to be changed. 





Load 
KR-20 



Load 
Split- 
Half 



Return 
to DOS 
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10 CLS 
20 REM 
30 REM 



RELIABILITY MAIN MENU PROGRAM 



M 



FILE NAME = RELI 



40 PRINT " 

50 PRINT " 

60 PRINT 

70 PRINT 

80 PRINT " 
90 PRINT 

100 PRINT 

110 PRINT 

120 PRINT 



II 



II 



1 



RELIABILITY PROGRAMS" 



Kuder Ri chardson-20" 



Spit-half Methods 



END PROGRAM" 



II 



130 PRINT 
140 PRINT 
150 PRINT 

160 INPUT "Enter Number of Choice: ",X 
170 REM 

180 ON X GOTO 200, 220, 240 
190 REM 

200 LOAD "KR20 " ,R 
210 REM 

220 LOAD "SHM",R 
230 REM 
240 CLS 
250 SYSTEM 
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X test Item value where 1 Is the number of the Item 

1 



2 

X square of test ltea value 

1 



T test score* I.e. the sua of X $ where r is the case # 
r 1 



2 

T square of test score 
r 



2 

S variance of test ltea 
1 



2 

S test variance 
t 



2 2 

The subs of X , X , and S are held In arrays, 
lit 
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Var 
L 



lable / 
1st J 



Eater Teat 
Information from 
Keyboard 



Read Data 
Pile £- 



I 

\ Close Data / 

\ *h± I 



Load Main 
Menu 



-> GOSUB 
1000 



4 GOSUB 
2000 



H Q # of Cases 

^ Error: END 




GOSUB 
3000 



> GOSUB 
4000 



GOSUB 
5000 
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10 CLS 

A V WWW 






20 PPM 




Fil* Nam** 


30 REM 






40 REM 






SO REM 


VARIABLE LIST: 




60 REM 


R 


RECORD COUNTER 


70 REM 


c 


CASE COUNTER 


80 REM 


RR 


RECORD COUNTER 


90 REM 


NVAR 


# OF VARIABLES PER RECORD 


100 REM 


Sum T var 

WUIN A W ■ 


sum of item variances 


110 REM 


Tvflnr 


TEST VARIANCE 


120 REM 


SuhiSq Sc 0 


SUM OF SCORES SQUARED 


130 REM 


Sum5cor# 


SUM OF SCORES 


140 REM 


F I LENS 


DATA FILE NAME 


150 REM 


Y* 


CORRECT KEYBOARD INPUT 


160 REM 


KR20 


RELIABILITY COEFFICIENT 


170 REM 


W* 


INKEYt IN OUTPUT MODULE 


180 REM 


P* 


OUTPUT TO PRINTER • 


190 REM 


FRSTITEM 


1ST TEST ITEM 


200 REM 


LAST ITEM 

mm*vvmm ■ A I ^_*tv V 


LAST TEST ITEM 


210 REM 


Z 


# OF ITEMS ON TEST 


220 REM 


cc 


COUNTER FOR NON-TEST VARIABLES 


230 REM 


VAR* 


DUMMY VAR FOR NON-TEST VARIABLES 


240 REM 


VAR 


DUMMY VAR FOR TEST ITEMS 


2S0 REM 






260 REM 






270 REM 


ARRAY LIST: 




280 REM 


SUM (ITEMS) 


SUM OF INDIVIDUAL ITEMS 


290 REM 


SCORE (CASES) SET OF SCORES 


3O0 REM 


SUMSQVAR( ITEMS) SUM OF ITEM SQUARES 


310 REM 


I VAR (ITEMS] 


» ITEM VARIANCES 
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320 REM 
. 330 REM 
340 REM ***^**************^^ 
350 REM MAIN MODULE 

360 REM ***************************^ 
370 REM 

380 QOSUB 1000 * ENTER KEYBOARD INFO 

390 REM 

400 PRINT "READING DATA FROM FILE "jFILEN* 
410 QOSUB 2000 
420 CLOSE* 1 

430 IF R<> CASES THEN GOTO 6000 '# OF CASES ERROR 

440 PRINT 

450 PRINT "CALCULATING VARIANCES" 
460 GOSUB 3000 
470 PRINT 

480 PRINT "CALCULATING KR - 20" 
490 GOSUB 4000 
500 PRINT 

510 GOSUB 5000 'OUTPUT MODULE 

520 REM 

530 LOAD "RELI " , R 
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Clear 
Scree d 



4- 



Print Request for: 




File Name 




• of cases 




• of variables 




• of 1st test 


item 


• of last test 


item 



1 LOCATE Command 


\ to 


Position Cursor 




f 


INPUT Statements / 


for above Info / 


V 


t 



Display User's Input 
Plus Calculated • of 
Test Items 




Dimension 
Arrays 



T 



Return to 
Ha In Module 



Repeat Input I 



J. 3 



970 RBI 12 
980 PRINT "ERROR" 
" 990 STOP 
1000 REM 

1010 REM ENTER KEYBOARD INFO 

1 020 REM 
1030 REM 
1040 CLS 

1030 PRINT " KUDER-R I CH ARSON 20 RELIABILITY PROGRAM" 

10S0 PRINT t PRINT t PR INT 
1070 PRINT "ENTER FILE NAME 
1 080 PR I NT 

1090 PRINT "ENTER NUMBER OF CASES 
1100 PRINT 

1110 PRINT "ENTER NUMBER OF VARIABLES PER CASE " 
1120 PRINT 

1130 PRINT "ENTER NUMBER OF FIRST TEST ITEM " 
1140 PRINT 

1150 PRINT "ENTER NUMBER OF LAST TEST ITEM " 

1160 LOCATE 3,40s INPUT FILEN* 

1170 LOCATE 7,40s INPUT CASES 

1180 LOCATE 9 r 40 t INPUT NVAR 

1190 LOCATE 11,40s INPUT FRSTITEM 

1200 LOCATE 13,40s INPUT LASTITEH 

1210 CLS 

1220 PRINT USING "FILE NAME - \ V'sFILEN* 

1230 PRINT 

1240 PRINT USING "No. OF CASES - ########" ; CASES 

1250 PRINT 

1260 PRINT USING "No. OF VAR'S - ######## " ; NVAR 

1270 PRINT 

1280 PRINT USING "No. OF FIRST TEST ITEM - ####" s FRSTITEM 
1290 PRINT 

1300 PRINT USING "No. OF LAST TEST ITEM - #### " ; LAST I TEM 
1310 PRINT 

1320 LET Z - LAST I TEM - FRSTITEM + 1 

1330 PRINT USING "No. OF TEST ITEMS - ####"; Z 

1340 PRINTS PRINTS PRINT 

1350 INPUT »/.<E THESE CORRECT <Y/N)"»Y» 

1360 IF Y*<> "Y" AND Y* <> "y" THEN GOTO 1040 

1370 DIM SUM<Z>s DIM SCORE(CASES) s DIM SUMSQVAR(Z): DIM IVAR(Z> 
1380 RETURN 
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Initial lzt 
Variables 



Lii 



R, SUMSQSC 
3UMSC0RE 



Open Data 
File 




GOSUB 2300: Raad Non-Test 
Var'a into Duaay Var 
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1970 REM 

1980 PRINT "ERROR! ! ! !" 
1990 STOP 

2000 REM ********************************* 
2010 REM READ DATA 

2020 REM *********************************************************************** 
203 i REM 

2040 LET R - 0: LET SUMSQSCO - 0: LET SUMSCORE = 0 

2050 OPEN "I", «l r FILEN* 

2060 IF FRSTITEM ■ 1 THEN GOTO 2090 

2070 LET Q ■ It LET U ■ (FRSTITEM - 1) 'SENT TO SUBROUTINE* 

2080 G0SU8 2300 'NON-TEST VAR'S 

2090 REM 

2100 IF EOF(l) THEN RETURN 

2110 LET R ■ R + 1 l PRINT H R « "}R 

2120 FOR C ■ FRSTITEM TO LAST ITEM 

2130 INPUT #1, VAR 

2140 PRINT H VAR ";C;" - ";VAR 

21S0 LET SUM(C) - SUM(C) > VAR 

2160 LET SUMSQVAR(C) - SUMSQVAR(C) + VAR A 2 

2170 LET SCORE(R) - SCORE(R) + VAR 

2180 NEXT C 

2190 LET SUMSQSCO - SUMSQSCO + SCORE (R) A 2 

2200 LET SUMSCORE - SUMSCORE + SCORE (R) 

2210 REM 

2220 IF LAST ITEM - NVAR THEN GOTO 2250 

2230 LET Q - (LAST ITEM + l)i LET W - NVAR 

2240 GOSUB 2300 

2250 REM 

2260 GOTO 2100 'END OF LOOP 

2270 REM 

2280 PRINT "ERROR!!!" 
2290 STOP 

2300 REM ********************************************* 
2310 REM RL;,D NON-TEST VARIABLES 

2320 REM ********************************************* 
2330 REM 

2340 FOR CC « Q TO U 
2350 INPUT#1, VAR* 
2360 NEXT CC 

2370 RETURN ! 



* From lines 2070 and 2230 values are : ent to the FOR... NEXT loop at 
lines 2340 to 2360 so that any non-test variables in the data file 
in front of and/or behind the test items are skipped. 
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Calculate 
2 2 
3 and S 
1 1 



Calculate 
2 

S 

t 



Return to 
Main Module 



£93y5.iS2&.&lcj!la£e.£R;2g 



Calculate 


KR- 


20 


> 


f 



la 

Absolute \ 
Value of KR-20 > No 
<■ 1 ? 




Print Error ** 
Message : END 



Yes 

Return to 
Main Module 



** If the sua of the Item 
the test variance then 
Therefore the test has 



variances Is equal to or greater than twice 
the KR-20 value will be less than -1.0. 
zero reliability. 
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2970 REM 

• 2980 PRINT "ERROR! ! \ !" 16 
2990 STOP 

3000 REM ******************************************************* **************** 

3010 REM CALCULATE VARIANCES 

3020 REM ****************************************^ 

3030 REM 

3040 FOR C ■ FRSTITEM TO LAST ITEM 

3050 LET IVAR(C) - (SUMSQVAR(C) - < (SUM(C)~2) /R) ) / (R-l ) 
3060 LET SUMIVAR - SUMIVAR + IVAR(C) 
3070 NEXT C 
3080 REM 

3090 FOR RR ■ 1 TO R 

3100 LET TVAR « (SUMSQSCO - ( (SUMSC0RE~2) /R) ) / (R-l ) 
311$ NEXT RR 
3120 REM 
3130 RETURN 
3970 REM 

3980 PRINT ERROR! ! ! !" 
3990 STOP 

4000 REM *******************************************************************^ 
4010 REM CALCULATING KR - 20 COEFFICIENT 

4020 REM *********************************************************************** 
4030 REM 

4040 LET KR20 - (Z/(Z-1>> * ( (TVAR - SUMIVAR) /TVAR) 
4050 IF ABS(KR20) <■ 1 THEN RETURN 
4060 REM 

4070 CLS s PRINT "SUM OF ITEM VARIANCES IS > 2 X TEST VARIANCE" 
4080 END 
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4970 REM 

4980 PRINT "ERROR! ! ! ! M 
4990 STOP 

9000 REM ****************^ 

5010 REM OUTPUT 

3020 REM **************^ 

5030 PRINTi PRINT: PRINT 

5040 PRINT "SEND OUTPUT TO SCREEN ONLY OR ALSO TO PRINTER? 
5050 PRINT 

5060 INPUT "ENTER S/P "; P* 

5070 IF P*<> "P" AND P*<> "p" AND P*<> "S" AND P*<> "s" THEN GOTO 5060 
5080 REM 

5090 IF P* - "S" OR P* - "s" THEN CLS : GOTO 5280 
5100 CLS 
51 10 LPRINT 



n 



S120 LPRINT " KUDER-R I CH ARDSON - 20 RELIABILITY COEFFICIENT" 

31 30 LPR I NT 11 ************^^ 

N 

5140 LPRINT 
5150 LPRINT 

5160 LPRINT USING "DATA FILE NAME \ \";FILEN* 

5170 LPRINT 

5180 LPRINT USING "No. OF CASES READ ######"; R 

5190 LPRINT 

5200 LPRINT USING "No. OF ITEMS ######"; Z 

5210 LPRINT 

5220 LPRINT USING "TEST VARIANCE - #####.###"; TVAR 

5230 LPRINT 

5240 LPRINT USING "SUM OF ITEM VARIANCES - #####.###"; SUM I VAR 
5250 LPRINT 

5260 LPRINT USING " KR-20 » ##.###"; KR20 

5270 REM 

5280 PR I NT " :Hc**4tt***********^ 

5290 PRINT " KUDER-R I CHARDSON - 20 RELIABILITY COEFFICIENT" 

5300 PRINT "ftfttt***************^ 
5310 PRINT 
5320 PRINT 

5330 PRINT USING "DATA FILE NAME \ \";FILEN* 

5340 PRINT 

5350 PRINT USING "No. OF CASES READ «#«*##"; R 
5360 PRINT 

5370 PRINT USING "No. OF ITEMS «*#*##"; 2 

5380 PRINT 

5390 PRINT USING "TEST VARIANCE - #####.###"; TVAR 

5400 PRINT 

5410 PRINT USING "SUM OF ITEM VARIANCES - «#*#«.#«*"; SUM IV AR 
5420 PRINT 

5430 PRINT USING " KR-20 ■ ##.###" ? KR20 

5440 REM 

5450 PRINTi PRINT: PRINTi PRINT 

5460 INPUT "SEND OUTPUT TO PRINTER <Y/N)";Y* 
5470 IF Y* - "Y" OR Y» ■ "y" THEN GOTO 5100 
5480 REM 
5490 RETURN 
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S970 REM 
* 5980 PRINT "ERROR ! ! ! ! " 
S990 STOP 

6000 REM *********************************** 
6010 REM "R <> CASES" ERROR 

6020 REM ********************************************************************** 
6030 PRINT "R <> CASES ERROR! ! ! ! " 
6040 PRINT 

6050 PRINT "R ■ "? R ; " AND CASES « " ; CASES 
6060 PRINT 
6070 STOP 
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X odd test Item, i.e. 1,3,5,7 etc. 

o 



2 

X square of odd test itea 

o 



X even test item, i.e. 2,4,6 etc. 

e 



2 

X square of even test itea 

e 



X X product of even itea and odd itea 

o e 



T score on test (odd iteas + even) 



2 

T square of test score 

2 

S odd half variance 

o 



2 

S even half variance 

e 



R odd-even correlation coefficient 

oe 



2 

S test variance 

T 
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R common split-half coefficient 

csh 



R Rulon-Guttaan split-half coefficient 

rg 



Variable 
List 

~T — 



Enter Test 
Information 
from Keyboard 

— j 



Read Data 
Pile 



-> GOSUB 1000 



GOSUB 2000 



/ 



Close Data 
Pile 




Calculate 
Variances 

~r — 



# of Cases 
Error : END 



Calculate 
Split-Half R's 

i — 



Output to 
Printer/Screen 



i 



Load Ha in 
Menu 



GOSUB 3000 



-y GOSUB 4000 



-} GOSUB 5000 
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10 CLS 



90 PPM 




r: 1 . — — cum 

Hi* Name: Srin 


jv Ktn 
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Ktn 






50 REM 


VARIABLE LIST: 




60 REM 


R 


RECORD COUNTER 


70 REM 


C 


CASE COUNTER 


80 REM 


RR 


RECORD COUNTER 


90 REM 


NVAR 


* OF VARIABLES PER RECORD 


100 REM 


CASES 


« OF CASES OR RECORDS 


110 REM 


FRSTITEM 


FIRST ITEM OF TEST 


1 On DCM 

1 &v Ken 


LAST ITEM 


I ACT T Tr M nr TCOT 

LAST I TEM Or TEST 


1 «3v Ken 




At nr ttc ye n m tc e t 
# Or I It MS UN TEST 


1 v Ktn 


r ll_tN9 


RATA rtl C kJAMC 

DAI A r ILt NAnb 


1 "^n DCM 
1 uv Ktn 


Y* 


rnDDcrT i/r\/DnADn tkjdi it 
UUKKcU 1 KbYoUAKO INrU 1 


1 An DCM 
1 ov Ktn 


wan 


00 mm OKI c LI DCI TADTI ttv rncrrtr TCMT 

UUnnUN o. rim KtL.lAolL.llY wUtrrlwltNT 


1 7n DCM 
a w v Ktn 


DA6U 

Kuan 


DIN DKI-AI ITTMAKI C U DCI PflCrr TPT CKIT 
KULUN~*uU 1 1 HAN o« n« KtL.« LUbr r IwltN 1 


ISO DCM 
a qv rven 


LI* 


T KJIf'CV* T KJ ni ITDI IT MflTM II C 
ini\tT9 in UU 1 ru 1 nuUULL 


ion DCM 




m ITDI IT Tn DDTKfTCD 

uu 1 r*w 1 1 u r^Kin 1 tK 


2O0 RPM 


TTCMQ 
x 1 ens 


m nr ttcmc riKi tcct 
w ur 1 1 tna win 1 to 1 


5 IO RPM 


pp 

WW 


pni rxiTCD rno Kin kj— tcct uadtadi cc 
wUUN 1 tK r UK NUN" 1 ba 1 VAKiAoLbb 


ooa DCM 

AAV rvtn 


VAK* 


ni immv had rno Kin ki— tcct uadtadi cc 
UUnn Y VAK r UK NUN" 1 to 1 VAK 1 AoLbb 


DCM 


ci iHnnn 
bunuuu 


ci im nr nnn ttcmc 
SUM Ur UDD 1 Tt MS 


9 Aft DCM 


CI IMClJhl 


CI IM nr riMTKI TTCMC 

SUM Ur EVEN 1 TEMS 


0"^A DCM 


SUMODEV 


ci im nr nnn ttctm «a* n ipki tttm 
SUM Or ODD ITEM * EVEN ITEM 


9 AH DPM 


0 Akin li 


pennnn nni i^ittdc rnp KinM — tcct uadtadi cc 
KtCOKD COUNTERS r UR NUN— TtoT VARIABLES 


07A DCM 


nnn t tcm 
uddi itn 


B^nDr nr nnn f 1 i_m 
SCORE Or ODD ITEM 


OfiA DCM 


E VN 1 TtPI 


contTD nr n ir ki ttcm 
SCOER Ur EVEN 1 TEM 


OOA DCM 

& wv Ktn 


cMcnnnn 
bnbuuUU 


ci im nr cm iadt nnn ttcmc 
oUn Ur buUAKb UDD 1 1 tna 


DCM 

wW Ktn 


fiMenri Jki 

snsutVN 


di im nr cm iadt rurAi t rpye 

SUM Or SQUARE EVEN ITEMS 


01 a DCM 

Jiv Ktn 


1 to 1 VAKU 


uADTAAinr nr nt%n ttctmd 
VARIANCE Or ODD ITEMS 


qOA DPM 

jav Ktn 


TESTVARE 


VARIANCE OF EVEN ITEMS 


330 RPM 


C0VARAB 


CO VARIANCE OF ODD AND EVEN ITEMS 


340 REM 


ROE 


ODD ITEM-EVEN ITEM CORRELATION C0EF. 


3S0 REM 


TESTSQSC 


SUM OF ALL SQUARED SCORES (ODD + EVEN) 


360 REM 


TESTSUSC 


SUM OF ALL SCORES (ODD + EVEN) 


370 REM 


TVAR 


TEST VARIANCE 


380 REM 


VARE Sc VAR0 STEP IN RAB CALCULATION 


390 REM 


0C & EC 


ODD AND EVEN ITEM COUNTERS 



400 REM 

410 REM ARRAY LIST: 

420 REM 0DDSC0R (CASES) SET OF ODD ITEM SCORES 

430 REM EVNSC0R< CASES) SET OF EVEN ITEM SCORES 

440 REM 
450 REM 
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900 REM ***********************************^ 
910 REM MAIN MODULE 

920 REM *********************************^ 
930 REM 

940 GOSUB 1000 'ENTER KEYBOARD INFO 

990 REM 

960 PRINT "READING DATA FROM FILE "jFILENS 
970 GOSUB 2000 
980 CLOSE* 1 

990 IF R<> CASES THEN GOTO 6030 '* OF CASES ERROR 

600 PRINT 

610 PRINT "CALCULATING VARIANCES" 
620 GOSUB 3000 
630 PRINT 

640 PRINT "CALCULATING SPLIT-HALF RELIABILITY COEFFICIENTS" 
690 GOSUB 4000 
660 PRINT 

670 GOSUB 9000 'OUTPUT MODULE 

680 REM 

690 CLSt LOAD " REL I " f R 
700 END 
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GOSUB 1000; Enter Test Information from Keyboard 



Same as flow chart for KR-20; see page 11. 



'ERROR* 



970 REM 
980 PRINT 
990 STOP 

1000 REM ******************************************************************* 
REM ENTER KEYBOARD INFO 

REM ***************************** 
REM 
CLS 

PR I NT " **************************************************************** 
PRINT " RELIABILTIYj SPLIT-HALF METHODS 

PR I NT " **************************************************************** 
PRINTiPRINTi PRINT 

" t FILEN* 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1130 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1970 
1980 



'ENTER FILE NAME 



"ENTER NUMBER OF CASES " , CASES 
"ENTER NUMBER OF VARIABLES PER CASE " r NVAR 
"ENTER NUMBER OF FIRST TEST ITEM "| FRSTITEM 



"ENTER NUMBER 
- LAST ITEM - 



OF LAST 
FRSTITEM 



TEST 
+ 1 



ITEM 



INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
LET Z 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINTiPRINTi PRINT 
INPUT "ARE THESE CORRECT <Y/N)"?Y* 
IF Y*<> "Y" AND Y* <> "y" THEN GOTO 1040 
DIM ODDSCOR ( CASES > t DIM E VNSCOR ( CASES > 
CLS 
RETURN 
REM 

PRINT "ERROR! ! • •" 



USING "FILE NAME 



USING "No. OF CASES 



USING "No. OF VAR'S 



USING "FIRST ITEM 



USING "LAST ITEM - 
USING "No. OF ITEMS 



LAST ITEM 



\"; FILEN* 



########" ; C;* CES 
########" | NVAR 

#####" ; FRSTITEM 
#####" ? LAST ITEM 
««#•«" | Z 
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/ Initialize / 
/ Variables | 



R, 3M3Q0DD 
SMSQEVN 



Open Data 
Pile 




Read Non-Test 
Var's Into 
Pussy Var's 



v Return to 

7 Main Module 



I update 

/ Case Counter 

4 — «- 



"For ... Neit Structure* 



Adjust 
for odd • 
of Items 




J 




Update Array ! 
TX and Counter j 






Update Array j 
£X and Counter 

e [ 
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.A 



i 



Update : 




<fx* ft 

o 


£x 1 

0 


2 

ft 




£ X X ft 
o e 


2 



T 
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Yes 



Last 
Item » last 
Var? 




Read Non-Test Items 
Into Dummy Var's 
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1970 REM 

1980 PRINT "ERROR! ! ! !" 
1990 STOP 

2000 REM **************************************^^ 
2010 REM READ DATA 

2020 REM ************************************ 
2030 REM 

2040 LET R - Of LET. SMSQODD - 0: LET SMSQEVN - 0 

2050 LET SUMODD - Ol LET SUMEVN - 0 

2060 LET SUMODEV - 0 

2070 OPEN M I M f *1, FILEN* 

2080 IF FR8TITEM » 1 THEN GOTO 2110 

2090 LET Q - It LET U - (FRSTITEM - 1) 'SENT TO SUBROUTINE 

2100 GOSUB 2300 ' NON-TEST VAR'S 

2110 REM 

2120 IF EOF(l) THEN RETURN 

2130 LET R ■ R + 1 sPRINT "R » ";R 

2140 LET EC » Ol LET OC - 0 

2150 FOR C - FRSTITEM TO LAST ITEM 

2160 INPUTttl, ODD ITEMS PRINT ODDITEM 

2170 IF C - LAST ITEM 'THEN GOTO 2200 

2180 INPUTttl, EVNITEMs PRINT EVNITEM 

2190 LET EVNSCOR(R) - EVNSCOR(R) + EVNITEMs LET EC - EC + 1 

2200 LET ODDSCOR(R) - ODDSCOR(R) + ODDITEMs LET OC - OC + 1 

2210 LET C » C + 1 

2220 NEXT C 

2230 IF EC <> OC THEN GOSUB 2610 

2240 LET SMSQODD - SMSQODD + 0DDSC0R(R>~2 

2250 LET SUMODD - SUMODD + ODDSCOR(R) 

2260 LET SMSQEVN - SMSQEVN + EVNSC0R(R>~2 

2270 LET SUMEVN - SUMEVN + EVNSCQR(R) 

2280 LET SUMODEV - SUMODEV + (ODDSCOR(R) * EVNSCOR(R)) 

2290 LET TESTSQSC « TESTSQSC ♦ (ODDSCOR(R) + EVNSCOR(R) > A 2 

2300 REM 

2310 IF LAST ITEM - NVAR THEN GOTO 2340 

2320 LET Q - (LAST ITEM + l)s LET W « NVAR 

2330 GOSUB 2500 

2340 REM 

2350 GOTO 2120 'END OF LOOP 

2470 REM 

2480 PRINT "ERROR! ! ! " 
2490 STOP 

2500 REM **************************««**«*«****««*««*«« 
2510 REM READ NON-TEST VARIABLES 

2520 REM ********************************************* 
2530 REM 

2540 FOR CC - Q TO U 
2550 INPUTttl, VAR* 
2560 NEXT CC 
2570 RETURN 
2580 R£M 

2590 PRINT "ERROR!!!!" 
2600 STOP 

2610 REM *********** **** <><<^c*^>**^****^*******<**^c*** 

2620 REM ADJUSTING FOR ODD NUMBER OF ITEMS 

2630 REM **************<sfcl::lc*c^ 

2640 LET 0DD8C0R(R) - ODDSCOR(R) /OC 

2650 LET EVNSCOR(R) ■ EVNSCOR(R>/EC 

2660 RETURN 
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Calculate 


2 


2 


S 


S R 


0 


e oe 







Calculate 
2 

S * ) T 
T 

"X" 

Return to 
Main Module 



^y£.jgg&..caicja*££.3fiii£-i!£ii.&:3 



Calculate 
R 

csh 






No 






Calculate 


R 




rg 





Return to 
Main Module 



Yes 



Ratio Error: 
END 
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2970 REM 
' 2980 PRINT "ERROR ! ! ! ! " 
2990 STOP 

3000 REM ************************************************* 
3010 REM CALCULATE VARIANCES 

3020 REM ******************************************************** ## ** ##### ^^^ 
3030 REM 
3040 REM 

3050 LET VARO - SMSQODD - ( (SUMODD-2) /R) 
30S0 LET TESTVARO » VAR0/(R-1) 
3070 LET VARE « SMSQEVN - ( (SUMEVN~2)/R) 
3080 LET TESTVARE » VARE/(R-1) 

3090 LET COVARAB » SUMODEV - (SUMODD * SUMEVN)/R 
3100 LET ROE - COVARAB/ (SQR(VARO) * SQR(VARE) ) 
3110 REM 

3120 LET TESTSUSC ■ SUMODD + SUMEVN 

3130 LET TESTVAR = (TESTSQSC - ( ( TESTSUSC A 2) /R) ) / (R - 1) 
3140 RETURN 
3970 REM 

3980 PRINT ERROR! ! ! ! " 
3990 STOP 

4OO0 REM *************************************************************** ######## 
4010 REM CALCULATING SPLIT-HALF RELIABILITIES 

4O20 REM ******************************************************* # ^* #### * # ^^ 
4030 REM 

4040 ' COMMON SPLIT-HALF METHOD 

4050 LET CSH - (2 * R0E)/(1 + ROE) 

4060 ' RULON-GUTTMAN SPLIT-HALF METHOD 

4070 LET RQ « ROE * SQR( TESTVARO) * SQR( TESTVARE) /TESTVAR 
4080 IF ABS(RG) => .25 THEN GOTO 6500 
4090 LET RGSH - 4 * RG 
4100 RETURN 
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30 



GOSUB 5000; Output to Printer/Screen 

Same as flow chart for KR-20; see page 17, 



4970 REM 

4980 PRINT "ERROR! ! ! !" 
4990 STOP 

5000 REM *************************************************************^ 
5010 REM OUTPUT 

5020 REM *********************************************************************** 
5030 PRINTS PRINTi PRINT 

5040 PRINT "SEND OUTPUT TO SCREEN ONLY OR ALSO TO PRINTER? 

5050 PRINT i 

5060 INPUT " ENTER S/P ": P» 

5070 IF P»<> "P" AND P»<> "p" AND P»<> "S" AND P»<> "s" THEN GOTO 5060 
5080 REM 

5090 IF P* ■ "S" OR P* « "s" THEN CLS I GOTO 5340 

5100 CLS < 

51 10 LPRINT "**************************.**********************************t**X*** 

M I 

Sil20 LPRINT " SPLIT-HALF RELIABILITY COEFFICIENTS" 

5 1 30 LPR I NT " ************************************************************** ***** 
■ 

5140 LPRINT I 
5150 LPRINT • 
5160 LPRINT USING "DATA FILE NAME \ VlFlLEN* 

5170 LPRINT ' 
5180 LPRINT USING "No. OF CASES READ ######" i R 

5190 LPRINT I 
5200 LPRINT USING "No. OF ITEMS ######": Z 

5210 LPRINT 

5220 LPRINT USING "S-ODD - ###.###"; SQR(VARO) 

5230 LPRINT I 

5240 LPRINT USING "S-EVEN - ### .###"} SQR ( VARE ) 

5250 LPRINT ■ 

5260 LPRINT USING "MEAN-ODD » ###.###"> SUMODD/R 

5270 LPRINT 

5280 LPRINT USING "MEAN-EVEN - ###.###"; SUMEVN/R 

5290 LPRINT 

5300 LPRINT USING "COMMON SPLIT-HALF METHOD r - ##.###" jCSH 

5310 LPRINT > 
5320 LPRINT USING " RUL0N-6UTTMAN SPLIT-HALF METHOD r - ##.###" ; RQSH 
5330 REM 
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5350 PRINT ,********* :M: *****^ ALF . reliability COEFFICIENTS" 
5360 PRINT M ****************************^ 
5370 PRINT 
5380 PRINT 

5390 PRINT USING "DATA FILE NAME \ 
5400 PRINT 

5410 PRINT USING "No. OF CASES READ ######" 
5420 PRINT 

5430 PRINT USING "No. OF ITEMS ###*##" 
5440 PRINT 

5450 PRINT USING "S-ODD « ###.###" 
5460 PRINT 

5470 PRINT USING "S-EVEN ■ ###.###" 
5480 PRINT 

5490 PRINT USING "MEAN-ODD = ###.###" 
5500 PRINT 

5510 PRINT USING "MEAN-EVEN = ###.###" 
5520 PRINT 

5530 PRINT USING "COMMON SPLIT-HALF METHOD 
5540 PRINT 

5550 PRINT USING " RULON-GUTTMAN SPLIT-HALF METHOD r = ##.###" ; RGSH 
5560 REM 

5570 LOCATE 12 f 45 : PRINT "ENTER RETURN TO CONTINUE" 
5580 LOCATE 12 f 69 : LET W* - INKEY*: IF W* - "" THEN GOTO 5580 
5590 REM 
5600 RETURN 



VjFILEN* 

R 

Z 

SQR(VARO) 
SQR(VARE) 
SUMODD/R 
SUMEVN/R 



##.###" ; CSH 
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5970 REM 

5980 PRINT "ERROR! ! ! ! " 
5990 STOP 

6000 REM **********^ 

6010 REM "R <> CASES" ERROR 

£020 REM ###### ##^$########3|c^#^^#3fc^3fc3fc3fc### ###### $$$$$$$$$$$$$2tc$$$$$ 
6030 PRINT "R <> CASES ERROR! ! ! !" 
6040 PRINT - 

6050 PRINT "R = "; R ; "AND CASES - ";CASES 
6060 PRINT 
6070 STOP 
6080 REM 
6090 REM 

GSOO REM ############# ###### 

6510 REM "RAB * TESTVARE * TESTVARO / TESTVAR => 0.25" ERROR 

6530 REM I 
6540 CLS 

6550 PRINT "ABS VALUE t RAB * TESTVARO * TESTVARE / TESTVAR 3 => 0.25" ** 
6580 PRINTi PRINT 

6570 PRINT USING "ROE * «*.#**" ;ROE 

6580 PRINT I 
6590 PRINT USING "VARIANCE OF ODD HALF = ###.###"; TESTVARO 
6600 PRINT 

6610 PRINT USING "VARIANCE OF EVEN HALF = *#*.***"; TESTVARE 

6620 PRINT l 

6630 PRINT USING "TEST VARIANCE » #<♦#.###"; TESTVAR 

6640 PRINT > 
6650 PRINT USING "RATIO = ##.###" ;RfcB*TESTVARO*TESTVARE/TESTVAR 
6660 REM I 
6670 END ) 



** The ratio in line 6650 is the value referred to in line 6550. If this 
happens the program is aborted because the resulting r value would be 
greater than the absolute value of 1. 
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